home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr47 / shwtxt16.zip / PUZZLE.ST < prev    next >
Text File  |  1995-02-01  |  2KB  |  52 lines
  1. 'PUZZLE.ST - 4x4 Puzzle Game for the ShowText system
  2.           COPY(PUZZLE1,1)\COPY(PUZZLE2,2)
  3.           CSR\LEFT MOUSE SPACE\SCREENSAVER 1
  4. :NEW\     CLS 7,0\V22=[RND 1 TO 24]
  5.           V23=[RND 0 TO 4]\V23=V23*16\COPY(1,0)V22
  6.           FOR V20=0 TO 15\V23=V23+1\PEEK 2 (V22,V23) ASCII V24\V24=V24 AND 15
  7.           VV20=V24\NEXT V20
  8. :SHOW\    FOR V20=0 TO 15\V18=V20/4\V18=V18*2\V18=V18+9
  9.                           V19=V20 AND 3\V19=V19*5\V19=V19+33\COLOR 14,4
  10.           P@ V18,V19\V18=VV20+1\IF V18<>16 SHOW1
  11.           V16=V20/4\V17=V20 AND 3\PRINT "  ";\GOTO SHOW2
  12. :SHOW1\   PRINT V18,2Q
  13. :SHOW2\   NEXT V20\RETURN\C@12,41
  14. :IN\      WAITKEY 0,IN\IF KEY ESC QUIT\IF KEY Q QUIT\IF KEY N NEW\IF KEY R RULES
  15.           IF CLK(19,16,19,25)NEW\IF CLK(19,37,19,45)RULES
  16.           IF CLK(19,57,19,64)QUIT
  17.           IF CLK(9,32,15,35)C0\IF CLK(9,37,15,40)C1
  18.           IF CLK(9,42,15,45)C2\IF CLK(9,47,15,50)C3\GOTO IN
  19. :C0\      V19=0\GOTO RCHK
  20. :C1\      V19=1\GOTO RCHK
  21. :C2\      V19=2\GOTO RCHK
  22. :C3\      V19=3
  23. :RCHK\    IF CLK( 9,32, 9,50)R0\IF CLK(11,32,11,50)R1
  24.           IF CLK(13,32,13,50)R2\IF CLK(15,32,15,50)R3\GOTO IN
  25. :R0\      V18=0\GOTO MCHK
  26. :R1\      V18=1\GOTO MCHK
  27. :R2\      V18=2\GOTO MCHK
  28. :R3\      V18=3
  29. :MCHK\    IF V16=V18 CMV\IF V17=V19 RMV\GOTO IN
  30. :CMV\     IF V17=V19 IN\IF V17>V19 CMVE
  31.           FOR V20=V17 TO V19\V21=V16*4\V21=V21+V20\V22=V21+1
  32.           VV21=VV22\NEXT V20\VV21=15\GOTO CHK
  33. :CMVE\    FOR V23=V19 TO V17\V20=V17+V19\V20=V20-V23
  34.           V21=V16*4\V21=V21+V20\V22=V21-1
  35.           VV21=VV22\NEXT V23\VV21=15\GOTO CHK
  36. :RMV\     IF V16>V18 RMVS
  37.           FOR V20=V16 TO V18\V21=V20*4\V21=V21+V17\V22=V21+4
  38.           VV21=VV22\NEXT V20\VV21=15\GOTO CHK
  39. :RMVS\    FOR V23=V18 TO V16\V20=V16+V18\V20=V20-V23
  40.           V21=V20*4\V21=V21+V17\V22=V21-4
  41.           VV21=VV22\NEXT V23\VV21=15
  42. :CHK\     GOSUB SHOW\FOR V20=0 TO 15\IF VV20<>V20 IN\NEXT V20
  43.           COLOR 3,5\WINDOW(7,29,17,53)104\BFILL0(19,9,19,72)32 31\ATTR 159
  44.           P@ 19,29\PRINT "YOU DID IT - Press any key";\CSR OFF
  45. :CHK1\    WAITKEY 0,CHK1\CSR\GOTO NEW
  46. :RULES\   COPY(0,3)\COPY(1,0)\BFILL0(19,9,19,72)32 31\ATTR 31
  47.           P@ 17,32\PRINT "Put blocks in order";
  48.           P@ 19,35\PRINT "Press any key";\CSR OFF
  49. :RULES1\  WAITKEY 0,RULES1\CSR\COPY(3,0)\GOTO IN
  50. :QUIT\    EXITC
  51.  
  52.